home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1443copy.txt < prev    next >
Encoding:
Text File  |  1996-03-07  |  1.3 KB  |  42 lines
  1. If newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. Title number = "1443"
  4. Company = "TouchStone"
  5. title = "PC-cillin 95"
  6. Price = 49.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "Windows 3.5'"
  13. Title Description = "The only complete anti-virus solution for Windows 95 and the Internet.
  14. Features Windows 95 and 3.x compatible, smart virus monitoring that automatically adjusts
  15. protection, fast, new 32-bit multi-thread scanner, and easy one-button virus updates. Scans
  16. online, e-mail attachments and shared folders. Also watches all infiltration points including
  17. modem."
  18.  
  19.  
  20. -----------------------------------
  21. dline = ""
  22. counter = 0
  23. repeat while dline <> title number
  24. counter = counter + 1
  25. dline = GetWord(1, GetLine(titl,counter))
  26. test(dline = title number, LineInTitle = counter)
  27. end repeat
  28. starttitle = LineInTitle
  29. num of titles shown = 6
  30. endtitle = starttitle + num of titles shown - 1
  31. titles = ""
  32. title highlight = ""
  33. repeat with counter = starttitle to endtitle
  34. nextline = GetLine(titl, counter)
  35. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  36. title highlight = Test(title number = GetWord(1, nextline), titlehighlight ^ SubStr(nextline, 6,
  37. CharCount(nextline)) ^ Return, title highlight ^ Return)
  38. end repeat
  39. dpage = CurrentPageID
  40. newtitle = FALSE
  41. end if
  42.